home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 January
/
1985-01.d64
/
baker's dozen 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
417b
|
21 lines
10 poke53280,0:poke53281,0:printchr$(147)
20 a=1:b=-1:c=40:d=-40:n=1:p=54272:v=1984
30 forz=1to12:gosub110
40 v=v-39:n=n+1
50 next
60 v=v+42:n=n-1
70 forz=1to12:gosub110
80 v=v+42:n=n-1
90 next
100 end
110 q=int(15*rnd(1))+1
120 forx=1ton:pokev+a,67:pokev+a+p,q:v=v+a:next
130 pokev,75:pokev+p,q
140 forx=1ton:pokev+d,66:pokev+d+p,q:v=v+d:next
150 pokev,73:pokev+p,q
160 forx=1ton:pokev+b,67:pokev+b+p,q:v=v+b:next
170 pokev,85:pokev+p,q
180 forx=1ton:pokev+c,66:pokev+c+p,q:v=v+c:next
190 pokev,74:pokev+p,q
200 return